SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDTIPO_OPER_I01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS              --*/
/*---Sistema              : Presupuestos 	       --*/
/*---M¸dulo               : Adminstaci©n               --*/
/*---Programa             : Copia Tipo Operaci©n       --*/
/*---Script               : TTTIPO_I.SQL	       --*/
/*---Nombre SP            : SP_TDTIPO_OPER_I01         --*/
/*---Desarrollado por     : Daniel Chiang	       --*/
/*---Fecha Creaci¸n       : 09/11/1999                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi¸n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     : Maribel Julca Rodriguez                            --*/
/*---Fecha Modificaci¸n   : 18-04-2005                           --*/ 
/*---Detalle Modificaci¸n : se agrego los campos de usuario en el proceso                          --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*------------------------------------------------------ */
/* Drop Proc SP_TDTIPO_OPER_I01			 	 */
/* Grant All On SP_TDTIPO_OPER_I01 To Public	 	 */
/* SP_TDTIPO_OPER_I01 ''10'', ''01'' ,1		   	 */
/*-------------------------------------------------------*/
 @CSCO_EMPR TD_VC_002, 
 @ISCO_USUA TD_VC_008,
 @CSCO_TIOP_0001 TD_VC_003, 
 @CSCO_TIOP_0002 TD_VC_003
 as

 BEGIN TRAN SP_TDTIPO_OPER_I01

        Delete TDTIPO_OPER  
        Where  CO_EMPR = @CSCO_EMPR 
        And    CO_TIPO_OPER = @CSCO_TIOP_0002 

        if @@error <> 0
           begin
             rollback tran 
             return
           end

	INSERT TDTIPO_OPER (CO_EMPR, CO_TIPO_OPER ,NU_CORR ,ID_INTE ,NU_DETA ,CO_OPRC_CNTB ,NU_ASTO, 
               CO_CNTA_EMPR ,CO_MONE , IN_CNTA_MONE ,TI_AUXI_EMPR ,TI_DOCU ,TI_DOCU_REFE,
               TI_MOVI ,IM_0001 ,OP_ARIT_0001 ,IM_0002, OP_ARIT_0002 ,IM_0003 ,DE_GLOS, CO_USUA_CREA, CO_USUA_MODI )          
     
        SELECT CO_EMPR, @CSCO_TIOP_0002 ,NU_CORR ,ID_INTE ,NU_DETA ,CO_OPRC_CNTB ,NU_ASTO, 
               CO_CNTA_EMPR ,CO_MONE , IN_CNTA_MONE ,TI_AUXI_EMPR ,TI_DOCU ,TI_DOCU_REFE,
               TI_MOVI ,IM_0001 ,OP_ARIT_0001 ,IM_0002, OP_ARIT_0002 ,IM_0003 ,DE_GLOS, @ISCO_USUA, @ISCO_USUA
        FROM TDTIPO_OPER
        WHERE CO_EMPR = @CSCO_EMPR 
        AND   CO_TIPO_OPER = @CSCO_TIOP_0001

       	if @@error <> 0
           begin
             rollback tran 
             return
           end

COMMIT TRAN 
/**********************************FIN********************************/


GO
